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FACILITY: String support Library 

ABSTRACT: This module takes 2 input strings of any supported class 
and dtype and returns a 0 if stringl is the same as string2 in both 
length and contents and a 1 otherwise 

ENVIRONMENT: User mode, AST Level or not or mixed 

AUTHOR: R. Will, CREATION DATE: 26-Mar-79 

MODIFIED BY: 


R. Will, eefersre VERSION 01 
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1 “B92 - ierlos's cleanup, change name t9 STRSCOMEQL. RW 5S-Nov-79 
1 - Make routine sens} tive to odd tional classes of string 
5 descriptors by usi ng SSTRSGET LEN. ADDR to extract length and 
5 _ Intertoe ddresses 85 R TSsAPR pEors. Remove string 
5 yy code. 
5 1 code. & 1850 T1981. 
05 iz Os = - Use. SWI fies iP a. avoid some of the cross-jumping code 
5 would noraal ly get generated this module. 
; RRR * BoNOV=1 
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i SWITCHES: 
SWITCHES ADDRESSING MODE 
(EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
SWITCHES ZIP ; 
LINKAGES 
REQUIRE ‘RTLIN:STRLNK'; ! Linkage to LIBSANALYZE_DESC_R3 


TABLE OF CONTENTS: 
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: 75 ; 

: rg 6 1 FORWARD ROUTINE 

; ee 1 STRSCOMPARE _EQL; ! compare 2 strings, same length and contents 
; (ee e 

3 1 64 1 ! INCLUDE FILES: 

3 ; 6 : ! 

: 4 85 1 REQUIRE *RILIN:RTLPSECT?: ! Declare PSECTS code 
; 5 $¢ 1 REQUIRE ‘RTLIN:STRMACROS'; ' use sering macros to write code 
: 1505 : LIBRARY ‘RTLSTARLE'; ! STARLET Library for macros and symbols 
; 1280 1! 

; 1281 1 ! MACROS: NONE 

:; 90 1 Hf 1! 

3 91 1285 1 

3 4 1284 1! 

a 1285 1 ! EQUATED SYMBOLS: NONE 
; «94 1286 1! 

3; 9 1287 1 

; | «6 1288 1! 

os Ser 1289 1 ! PSECT DECLARATIONS 

; 1290 1! 

: 99 1291 1 

3 100 1 3 1 DECLARE_PSECTS (STR); 

: 101 12935 1 

3 106 1294 1! 

; 10 1295 1! OWN STORAGE: NONE 

: 104 1296 1! 

3; 105 1297 1 

: 106 1298 1! 

s ler 1299 1 ! EXTERNAL REFERENCES 

; 108 1300 1! 

3; 109 1301 1! NONE 
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GLOBAL ROUTINE STRSCOMPARE_EQL ( ! compare strings-same Len and contents 


STRING], ! pointer to Ist string descriptor 
STRING2 ! pointer to 2nd string descriptor 
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FUNCTIONAL DESCRIPTION: 
This routine takes two source strings of any supported 

dtype and class, compares their length and contents and returns 
a f both are the same (length and contents) 

and a 1 otherwise. 
i FORMAL PARAMETERS: 


STRING1.rt.dx pointer to ist string descriptor 
STRING2.rt.dx pointer to 2nd string descriptor 


! 
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J 

! 

' 

{ 

! 

i 

: 

} IMPLICIT INPUTS: 
NONE 

i IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
MATCH.wl.v 0 if same Length and contents, otherwise 1 
i SIDE EFFECTS: 
May signal STRS_ILLSTRCLA on bad string class 
! 


BEGIN 
LOCAL 
MATCH; ' Local to return match or nomatch 
MAP STRING! : REF SSTRSDESCRIPTOR; 
MAP STRING2 : REF S$STRSDESCRIPTOR; 


'¢ 
: ther out if this is a static or dynamic string to optimize the code 
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IF (.STRING1 CDSC$B_CLASS) LEQU DSC$ 
‘ G-STRINGS DSC$B_CLASS] LEQU DSC$ 
BEGIN 
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iif lengths are equal and contents are same match = 0, 
! else match = 1 
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Get the associated lengths and addresses of the strings 
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68 59 to ; 
9 60 ; 
8 61 IF (.STRING] CDOSCSW_LENGTH J] EQLU .STRING2 CDSCSW_LENGTH J ) ; 
71 66 THEN ! lengths equal ‘ 
i ef 
74 65 ! Use same Length field to force generation of a CMPC3. This ° 
p 66 } is ok since lengths are the same. ‘ 
77 68 IF (CHSEQL : 
78 69 (.STRING1 PoSCeu LENGTH » «STRING1 Pos CSA POINTER, . 
79 70 «STRING [OSC$WLENGTH], .STRING2 CDSCSA_POINTER] ) ) ‘ 
80 71 THEN MATCH = T both length and contents match ; 
a if iy MATCH = 1 ! Lengths match, contents don't ‘ 
8s ie ELSE MATCH = 1; ! Lengths don't match ‘ 
85 76 END : 
86 77 ; 
87 78 ELSE ‘ 
88 79 ; 
89 80 BEGIN ‘ 
90 81 LOCAL : 
91 S¢ S1_LENGTH, ! Length of first string 
4 8 $1_ADDR ! address of ist data byte of first string 
9 84 S2“LENGTH, | Length of second string 
Be +H * S2_ADDR; ! address of Ist data byte of second string 
6 7 
7 8 
8 9 
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; 
3 
3 
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i 
99 39 SSTRSGET_LEN_ADDR (STRING1, S1_LENGTH, S$1_ADDR) ; 
90 33 SSTRSGET-LEN_ADDR (STRING2, S27LENGTH, S2-ADDR) ; 
0 39 
08 39 If lengths are equal and contents are same match = 0, 
04 $3 else match = 1 
05 9 
06 39 
07 % IF (.S1_LENGTH EQLU .S2_LENGTH ) ! Lengths = ? 
08 99 THEN 
09 400 BEGIN 
10 401 IF (CHSEQL (.S1_LENGTH, .S$1_ADDR ' contents = ? 
11 40¢ -SIZLENGTH, .S27ADDRS ) | use same Length fieid 
\¢ 40 ' to force generation of 
1 404 ' CMPCS5 compare. Its ok 
14 405 ' since we know 
15 606 ! S1_LENGTH = S2_LENGTH 
16 40 THEN MATCH = 9 ! both length and contents match 
? $08 FUSE MATCH = ! Lengths match, contents don't 
)} rh ELSE MATCH = 1; ! Lengths don't match 
1 tig END; 
; 41 
414 RETURN .MATCH; 
4 415 END; ! End of STRSCOMPARE_EQL 
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$38 1618 1 END 'End of module 
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PSECT SUMMARY 
Name Bytes Attributes 
_STRSCODE 110 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


Suma Syabols -ceece-- Pages Processing 
File Total Loaded Percent Mapped Time 
~$255$DUA28: CSYSLIBISTARLET.L32;1 9776 4 0 581 00:00.8 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD. INITIAL OPTIMIZE) /NOTRACE/LIS=L 158: STRCOMEGL /0BJ=08.)$: STRCOMEGL MSRC$:STRCOMEQL/UPDATE=(ENHS: STRCOMEQL 
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eh Times 00: 
Lines/CPU Min: 1 ; 
Lexemes/CPU-Min: 37 
pee | Used: 91 pages 
Compila 
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